lambda2 <-
function(x){
	x[1] + two_norm(x[-1])
}

